home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD016a.dsk / PAL.33515.SMITH.JAN.83.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  4KB  |  42 lines
  1. 10  REM PAL.33515.SMITH.JAN.83.A
  2. 20  REM ========================
  3. 30  REM * PIE WRITER BUG AND FIX
  4. 40  REM * BY SANDY SMITH
  5. 50  REM * SUBMITTED TO SOFTDISK
  6. 60  REM * JANUARY 1983
  7. 70  REM ========================
  8. 100  REM * PAGE 1
  9. 110  TEXT : HOME : HTAB 8: INVERSE : PRINT "'PIE WRITER' BUG AND FIX": NORMAL : PRINT : PRINT 
  10. 120  HTAB 2: PRINT "I DISCOVERED A PROBLEM USING HAYDEN'S": PRINT : HTAB 2: INVERSE : PRINT "PIE WRITER";: NORMAL : PRINT " (VERSION 2.1) WITH THE"
  11. 130  PRINT : HTAB 2: PRINT "CENTRONICS 737 PRINTER. THE PRINTER": PRINT : HTAB 2: PRINT "IGNORED ALL ";: INVERSE : PRINT "PIE";: NORMAL : PRINT "'S SPACING COMMANDS"
  12. 140  PRINT : HTAB 2: PRINT "WHICH ARE SUPPOSED TO CREATE BLANK": PRINT : HTAB 2: PRINT "LINES WHEN PRINTING A DOCUMENT."
  13. 150  PRINT : PRINT : HTAB 2: PRINT "AFTER SEVERAL FRUITLESS PHONE": PRINT : HTAB 2: PRINT "CONVERSATIONS WITH HAYDEN'S CUSTOMER"
  14. 160  PRINT : HTAB 2: PRINT "SERVICE REPRESENTATIVES, I CONTACTED"
  15. 170  GOSUB 1010
  16. 200  REM * PAGE 2
  17. 210  HOME : PRINT : HTAB 2: PRINT "TOM CROSLEY, ";: INVERSE : PRINT "PIE";: NORMAL : PRINT "'S AUTHOR. HE CAME UP"
  18. 220  PRINT : HTAB 2: PRINT "WITH A SIMPLE 'FIX' THAT I AM HAPPY TO": PRINT : HTAB 2: PRINT "PASS ON TO ANYONE WHO MIGHT NEED IT."
  19. 230  REM * THE FIX PROCEDURE *
  20. 240  PRINT : PRINT : HTAB 2: PRINT "DIRECTIONS FOR THE FIX:"
  21. 250  PRINT : PRINT : HTAB 2: PRINT "1. BOOT A COPY OF ";: INVERSE : PRINT "PIE WRITER";: NORMAL : PRINT ".": HTAB 5: PRINT "(NOT THE ORIGINAL DISK!)"
  22. 260  PRINT : HTAB 2: PRINT "2. SELECT ";: INVERSE : PRINT "FORMAT CONFIGURE";: NORMAL : PRINT " FROM THE": HTAB 5: PRINT "SYSTEM MENU."
  23. 270  PRINT : HTAB 2: PRINT "3. WHEN THE NEXT MENU APPEARS, TYPE '3'";: HTAB 5: PRINT "TO SELECT 'PAGE FORMAT (SPACING,": HTAB 5: PRINT "LINE LENGTH)'."
  24. 280  GOSUB 1010
  25. 300  REM * PAGE 3
  26. 310  HOME : HTAB 2: PRINT "4. IN THE ORIGINAL CONFIGURATION, THE": HTAB 5: PRINT "INITIAL OFFSET CHAR (NUMBER 5 ON THE";: HTAB 5: PRINT "MENU) IS THE 'SPACE' CHARACTER."
  27. 320  PRINT : HTAB 5: PRINT "CHANGE THIS TO BE CTRL-N BY FIRST": HTAB 5: PRINT "SELECTING '5' FROM THE MENU. THEN": HTAB 5: PRINT "HOLD DOWN THE 'CTRL' KEY WHILE": HTAB 5: PRINT "PRESSING THE 'N' KEY."
  28. 330  PRINT : HTAB 5: PRINT "THE INITIAL OFFSET CHAR WILL APPEAR": HTAB 5: PRINT "ON THE MENU AS ";: FLASH : PRINT "N";: NORMAL : PRINT " (A FLASHING 'N')."
  29. 340  PRINT : HTAB 2: PRINT "5. NOW ANSWER 'N' TO THE MENU PROMPT": HTAB 5: PRINT "AND YOU WILL RETURN TO THE MAIN ": HTAB 5: INVERSE : PRINT "FORMAT CONFIGURE";: NORMAL : PRINT " MENU."
  30. 350  PRINT : HTAB 2: PRINT "6. ANSWER 'N' TO THE 'DO YOU WANT TO": HTAB 5: PRINT "LOOK AT OR MODIFY ADDITIONAL VALUES": HTAB 5: PRINT "IN ONE OF THE ABOVE CATEGORIES?'": HTAB 5: PRINT "PROMPT."
  31. 360  GOSUB 1010
  32. 400  REM * PAGE 4
  33. 410  HOME : VTAB 2: HTAB 2: PRINT "7. ANSWER 'Y' TO THE 'DO YOU WANT TO": HTAB 5: PRINT "PERMANENTLY UPDATE FORMAT?'": HTAB 5: PRINT "QUESTION."
  34. 420  PRINT : PRINT : HTAB 2: PRINT "ALTHOUGH THIS SOLUTION DOES NOT": PRINT : HTAB 2: PRINT "CORRECT THE FLAW IN THE ";: INVERSE : PRINT "PIE WRITER": NORMAL : PRINT 
  35. 430  HTAB 2: PRINT "PROGRAM ITSELF, IT DOES MAKE THE": PRINT : HTAB 2: PRINT "SPACING COMMANDS WORK AS THEY SHOULD": PRINT : HTAB 2: PRINT "WITH THE CENTRONICS 737 PRINTER."
  36. 440  PRINT : PRINT : HTAB 11: PRINT "SANDY SMITH": HTAB 11: PRINT "2052 BRENDLA ROAD": HTAB 11: PRINT "CLEARWATER, FL 33515"
  37. 450  REM * RETURN TO PAL.MENU
  38. 460  VTAB 23: INVERSE : PRINT "PRESS ANY KEY TO RETURN TO THE PAL.MENU": NORMAL : WAIT  -16384,128: POKE  -16368,0
  39. 470  PRINT  CHR$(4);"RUN PAL.MENU"
  40. 480  END 
  41. 1000  REM * PRESS KEY ROUTINE *
  42. 1010  VTAB 23: HTAB 8: INVERSE : PRINT "PRESS ANY KEY TO CONTINUE": NORMAL : WAIT  -16384,128: POKE  -16368,0: RETURN